home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / mebbs / post.lha / post.qed < prev   
Text File  |  1995-06-09  |  2KB  |  80 lines
  1. /* AutoPosting program  by Steve Robbins */
  2.  
  3. options results
  4.  
  5. if( ~show( 'l', "mebbsarexx.library" ) )then do
  6.    if( ~addlib( "mebbsarexx.library", 0, -30, 0 ) )then do
  7.       say "Could not open library"
  8.       exit 10
  9.    end
  10. end
  11.  
  12. 'SAVEAS t:QED_Temp'
  13.  
  14. 'QString Who is the message from?\\Steve Robbins'
  15. 'STATUS A'
  16. FromWhom = result
  17.  
  18. 'QString Who is the message to?\\All'
  19. 'STATUS A'
  20. ToWhom = result
  21.  
  22. 'QString What message area do you want to post in?\\1'
  23. 'STATUS A'
  24. Area = result
  25.  
  26. 'QString What is the subject?\\Rules'
  27. 'STATUS A'
  28. Subject = result
  29.  
  30. 'QQuery Is the message private?'
  31. if rc == 0 then Private = 1
  32. else Private = 0
  33.  
  34. 'QQuery Do you want to attach a file?'
  35. ans = rc
  36. if rc == 0 then do
  37.    attach = 1
  38.    'QFile Enter the file name:\\Tmp:'
  39.    'STATUS A'
  40.    path = result
  41.    'STATUS B'
  42.    file = result
  43.    if right(path, 1) == ':' then
  44.       subject = path||file
  45.    else
  46.       subject = path||'/'||file
  47. end
  48.  
  49. BodyPath = "t:Qed_Temp"
  50. Pound = "#"
  51.  
  52. If Area == 46 Then do
  53.    'QString What is the Zone number?\\6'
  54.    'STATUS A'
  55.    Zone = result
  56.    'QString What is the Net number?\\733'
  57.    'STATUS A'
  58.    Net = result
  59.    'QString What is the Node number?\\1'
  60.    'STATUS A'
  61.    Node = result
  62.    'QString What is the Point number?\\0'
  63.    'STATUS A'
  64.    Point = result
  65.    InfoString = FromWhom||Pound||ToWhom||Pound||Subject||Pound||BodyPath||Pound||Area||Pound||Attach||Pound||Private||Pound||Zone||Pound||Net||Pound||Node||Pound||Point
  66. End
  67. Else
  68.  InfoString = FromWhom||Pound||ToWhom||Pound||Subject||Pound||BodyPath||Pound||Area||Pound||Attach||Pound||Private
  69.  
  70.  
  71. 'QQUERY Go ahead and post the message?'
  72. ans = rc
  73. If rc == 0 then do
  74.  
  75.  
  76.    call RobotMessage RoboMail, InfoString
  77.  
  78. end
  79. address command 'delete t:QED_Temp'
  80.